home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global IMapTest
- set TheirAnswer1 to getMyFirstAnswer(IMapTest)
- set TheirAnswer2 to getMySecondAnswer(IMapTest)
- set CurrentQuestionType to getCurrentType(IMapTest)
- set doneSpriteNumber to getDoneSpriteNumber(IMapTest)
- set barResponseSprite to getBarSpriteNumber(IMapTest)
- set CurrentButton to the name of member the memberNum of sprite doneSpriteNumber
- case CurrentButton of
- "done_button":
- if (CurrentQuestionType = 5) and (TheirAnswer1 <> 0) and (TheirAnswer2 <> 0) then
- swapCast(doneSpriteNumber, "DoneNoSparkleDown")
- puppetSound("click")
- else
- if (CurrentQuestionType <> 5) and (TheirAnswer1 <> 0) then
- swapCast(doneSpriteNumber, "DoneNoSparkleDown")
- puppetSound("click")
- else
- puppetSound("no click sound")
- exit
- end if
- end if
- "tryagain":
- swapCast(doneSpriteNumber, "down-try again")
- puppetSound("click")
- end case
- repeat while the mouseDown
- nothing()
- end repeat
- set CurrentButton to the name of member the castNum of sprite doneSpriteNumber
- case CurrentButton of
- "DoneNoSparkleDown":
- checkAnswer(IMapTest)
- "down-try again":
- repeat with i = 16 to 18
- swapCast(i, "normal button")
- end repeat
- swapCast(barResponseSprite, "question.bar")
- swapCast(30, "done_button")
- if getQuestionNumber(IMapTest) = 1 then
- swapCast(33, "DoneMessage.E")
- end if
- set TheirAnswer to 0
- "RarrowOnly":
- puppetSound("click")
- set lIntCurrentQuestionNum to getQuestionNumber(IMapTest)
- if lIntCurrentQuestionNum = 1 then
- puppetSprite(33, 0)
- end if
- if lIntCurrentQuestionNum <> 10 then
- initQuestionValues(IMapTest)
- else
- turnOffQuestioning(IMapTest)
- end if
- computeScore(IMapTest)
- go(the frame + 1)
- end case
- updateStage()
- end
-